home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / game / wb / driver.lha / Driver next >
Text File  |  1997-01-20  |  4KB  |  141 lines
  1. Skip Runned
  2.  
  3. Lab Loop
  4. Set CS `Echo FIRST 2 $CS`
  5. IF "x" eq "$CS"
  6. Set Rand `Eval $Rand + 13 * $Rand + 9699691 mod 342210277`
  7. Set C `Eval $Rand mod 4 + 4 mod 4 + 3`
  8. Set CS `Echo LEN $C "xxxxxxxxxxxxxxx"`
  9. Set D `Eval $Rand mod 3 + 3 mod 3 - 1`
  10. EndIF
  11.  
  12. Set X `Eval $X+$D`
  13. IF 10 gt $X VAL
  14. Set X 10
  15. Set D 1
  16. Else
  17. IF $X gt 44 VAL
  18. Set X 44
  19. Set D -1
  20. EndIF
  21. EndIF
  22.  
  23. Set MyD `GetENV RAM:Auto-Direction`
  24. Set MyX `Eval $MyX+$MyD`
  25. Echo NOLINE FIRST 1 LEN $X "                                             "
  26. Set Col `Echo FIRST 1 LEN 2 $His`
  27. Set His `Echo FIRST 3 $His$X`
  28. Set Pom "          `Echo LEN $Col "                                             HHH    HHH"`"
  29. Echo "HHH    HHH*e[2;${MyX}HO*e[20;1H"
  30. Set road `eval $road + 1`
  31. IF NOT EXISTS RAM:Auto-Brk
  32. IF NOT "`Echo FIRST $MyX "$Pom"`" gt "H"
  33. Skip Loop BACK
  34. EndIF
  35. EndIF
  36.  
  37. Echo "*e[1;${MyX}H*e[2D==O==*e[4D*e[B/|\"
  38. Wait
  39. Echo "*ec*e[6;16HWell, you did $road meters."
  40. Set rating "Braindead !!"
  41. IF $road gt 25 VAL
  42. Set rating "Poor boy !"
  43. EndIF
  44. IF $road gt 100 VAL
  45. Set rating "Well !"
  46. EndIF
  47. IF $road gt 300 VAL
  48. Set rating "Great ! Try on faster computer !"
  49. EndIF
  50.  
  51. IF EXISTS RAM:AUTO-Brk
  52. RequestChoice "The results ..." "$rating*nYou got $road points." "Quit now"
  53. Else
  54. IF "1" eq "`RequestChoice "The results ..." "$rating*nYou got $road points." "Drive again !" "Quit this shit"`"
  55. Skip Start2
  56. EndIF
  57. EndIF
  58.  
  59. Echo >RAM:Auto-Break "Driver"
  60. UnsetENV RAM:AUTO-LOG
  61. UnsetENV RAM:Auto-Brk
  62. UnsetENV RAM:Auto-Control
  63. Resident Eval REMOVE
  64. EndCLI
  65.  
  66. Lab Runned
  67. FailAt 21
  68. UnsetENV RAM:Auto-Break
  69. UnsetENV RAM:Auto-Brk
  70. Set NUM `GetENV RAM:AUTO-LOG`
  71. IF "$NUM" eq "1"
  72. Skip Init
  73. Else
  74. IF "$NUM" eq "0"
  75. SetENV RAM:AUTO-LOG 1
  76. Skip Start
  77. Else
  78. Lab Init
  79. SetENV RAM:AUTO-LOG 0
  80. Which >NIL: Driver
  81. IF "$RC" eq "0"
  82. Echo >RAM:Auto-Direction 0
  83. Set t1 "IF >NIL: ***$Pom eq q"
  84. Set t2 "Echo >RAM:Auto-Brk Driver"
  85. Set t3 "EndCLI"
  86. Set t4 "EndIF"
  87. Set t7 RAM:Auto-Slave
  88. Echo >$t7 "FailAt 21"
  89. Echo >>$t7 "ChangeTaskPri 3"
  90. Echo >>$t7 "Echo *"*ecDrive with <ENTER>**nQuit with q<ENTER>*""
  91. Echo >>$t7 "LAB Loop"
  92. Echo >>$t7 "Echo *" | |   *" NOLINE"
  93. Echo >>$t7 "Set >NIL: Pom ?"
  94. Echo >>$t7 "Echo >RAM:Auto-Direction 1"
  95. Echo >>$t7 "$t1*n$t2*n$t3*n$t4*n"
  96. Echo >>$t7 "Echo *"  \ \  *" NOLINE"
  97. Echo >>$t7 "Set >NIL: Pom ?"
  98. Echo >>$t7 "Echo >RAM:Auto-Direction 0"
  99. Echo >>$t7 "$t1*n$t2*n$t3*n$t4*n"
  100. Echo >>$t7 "Echo *"   | | *" NOLINE"
  101. Echo >>$t7 "Set >NIL: Pom ?"
  102. Echo >>$t7 "Echo >RAM:Auto-Direction -1"
  103. Echo >>$t7 "$t1*n$t2*n$t3*n$t4*n"
  104. Echo >>$t7 "Echo *"  / /  *" NOLINE"
  105. Echo >>$t7 "Set >NIL: Pom ?"
  106. Echo >>$t7 "Echo >RAM:Auto-Direction 0"
  107. Echo >>$t7 "$t1*n$t2*n$t3*n$t4*n"
  108. Echo >>$t7 "Skip Loop BACK"
  109. NewShell FROM "`Which Driver`" CON:20/50/448/164//NOSIZE
  110. NewShell FROM $t7  "CON:300/0/240/30/Control/NOSIZE"
  111. Else
  112. UnsetENV RAM:AUTO-LOG
  113. Echo "I can not locate myself !*nPlace me somewhere in the path and set me the 's' flag !"
  114. EndIF
  115. Quit
  116. EndIF
  117. EndIF
  118. Lab Start
  119. RequestChoice >NIL: "The Driver" "DRIVER - Pure Shell !*n------------------------*nUse the <RETURN> key in the control*nwindow to alternate the direction*nof your O'car !*n*nMade by Harry '97*nPublic domain*nEMail: pmar5303@menza.mff.cuni.cz" "I Will"
  120. Lab Start2
  121. SetFont topaz SIZE 8
  122. echo "*e[1;1H*e[J*e[4x*e[2y" NOLINE
  123. echo "*e[>3m*e[31;43m*E[0;0H*E[J" NOLINE
  124. Set MyX 32
  125. Set X 27
  126. Set Rand 79797
  127. Set C 10
  128. Set CS "xxxxxxxxxx"
  129. Set D 1
  130. Resident C:Eval PURE
  131. Set His "272727272727272727272727272727272727"
  132. Set t1 "                           HHH    HHH"
  133. Set road 0
  134. Echo "$t1*n$t1*n$t1*n$t1*n$t1"
  135. Echo "$t1*n$t1*n$t1*n$t1*n$t1"
  136. Echo "$t1*n$t1*n$t1*n$t1*n$t1"
  137. Echo "$t1*n$t1*n$t1*n$t1*n$t1"
  138. Skip Loop BACK
  139.  
  140. ;$VER: Driver game 1.0 (20.2.97)
  141.